home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Informant Complete 1995 - 2000
/
Delphi Informant Complete 1995 to 2000.iso
/
Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar
/
1998
/
Jul
/
di9807jp
/
SFTPCLIENT
/
Main.dfm
/
Main.txt
Wrap
Text File
|
1998-02-20
|
6KB
|
250 lines
object frmMain: TfrmMain
Left = 154
Top = 15
Width = 472
Height = 402
Caption = 'SFTP Client 1.0 '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object gbHost: TGroupBox
Left = 0
Top = 0
Width = 185
Height = 49
Caption = 'Host name'
TabOrder = 0
object edHostName: TEdit
Left = 8
Top = 16
Width = 161
Height = 21
TabOrder = 0
end
end
object gbFileName: TGroupBox
Left = 0
Top = 192
Width = 185
Height = 49
Caption = 'File name'
TabOrder = 1
object edFileName: TEdit
Left = 8
Top = 16
Width = 161
Height = 21
TabOrder = 0
Text = 'TEST.PAS'
end
end
object gbUserName: TGroupBox
Left = 0
Top = 96
Width = 185
Height = 49
Caption = 'User name'
TabOrder = 2
object edUserName: TEdit
Left = 8
Top = 16
Width = 161
Height = 21
TabOrder = 0
Text = 'JOHN'
end
end
object gbPortNo: TGroupBox
Left = 0
Top = 248
Width = 97
Height = 65
Caption = 'Port number'
TabOrder = 3
object edPortNo: TEdit
Left = 8
Top = 16
Width = 65
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = '5,000'
OnEnter = edPortNoEnter
end
object UpDown1: TUpDown
Left = 73
Top = 16
Width = 15
Height = 24
Associate = edPortNo
Min = 0
Max = 32656
Position = 5000
TabOrder = 1
Wrap = False
end
end
object gbMessages: TGroupBox
Left = 192
Top = 0
Width = 265
Height = 313
Caption = 'Messages'
TabOrder = 4
object memStatusMsg: TMemo
Left = 2
Top = 15
Width = 261
Height = 296
Align = alClient
Lines.Strings = (
'memStatusMsg')
ScrollBars = ssBoth
TabOrder = 0
end
end
object gbActions: TGroupBox
Left = 0
Top = 312
Width = 463
Height = 57
Caption = 'Actions'
TabOrder = 5
object bbtnGetFile: TBitBtn
Left = 142
Top = 20
Width = 69
Height = 33
Hint = 'Get the file!'
Caption = 'Get File!'
TabOrder = 0
OnClick = bbtnGetFileClick
Kind = bkOK
end
object bbtnClose: TBitBtn
Left = 375
Top = 20
Width = 75
Height = 33
Hint = 'Goodbye!'
TabOrder = 1
OnClick = bbtnCloseClick
Kind = bkClose
end
object bbtnAbout: TBitBtn
Left = 250
Top = 20
Width = 75
Height = 33
Hint = 'About SFTPClient...'
Caption = 'About'
TabOrder = 2
OnClick = bbtnAboutClick
Kind = bkHelp
end
object bbtnLoad: TBitBtn
Left = 13
Top = 20
Width = 75
Height = 33
Hint = 'Click this button to load Winsock 2.'
Caption = '&Load'
TabOrder = 3
OnClick = bbtnLoadClick
Glyph.Data = {
96010000424D9601000000000000760000002800000018000000180000000100
0400000000002001000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
0000000000FF0000000000000000000007F0000000000000000077777F000000
0000000000078888870000000000000000878888880007777777777770888888
88000000000000000708888888000FFFFFFFFFFFF007F888FF000FFFFFFFFFFF
07FF70FF00000FFFF000000F0FFF007700000FFF77777770FFFF070000000FF7
870887887FF0700000000FF7870887887FFF700000000FF7870887887FFF7000
00000FF7877887887FFF700000000FF7888008887FFF700000000FF788800888
7FFF700000000FFF7FFFFFF0FFFF700000000FFFF777777FFFFF700000000FFF
FFFFFFFFFFFF700000000000000000000000700000000888CCCCCCCCCCCC7000
00000008CCCCCCCCCCCC70000000000000000000000000000000}
end
end
object gbPassword: TGroupBox
Left = 0
Top = 144
Width = 185
Height = 49
Caption = 'Password'
TabOrder = 6
object edPassword: TEdit
Left = 8
Top = 16
Width = 161
Height = 21
PasswordChar = ' '
TabOrder = 0
Text = 'SECRET'
end
end
object GroupBox1: TGroupBox
Left = 98
Top = 248
Width = 87
Height = 65
Caption = 'Timer Setting'
TabOrder = 7
object edTimerSetting: TEdit
Left = 8
Top = 16
Width = 57
Height = 24
Hint = 'Set the timer in milliseconds'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = '5,000'
end
object UpDown2: TUpDown
Left = 65
Top = 16
Width = 15
Height = 24
Associate = edTimerSetting
Min = 1000
Max = 10000
Position = 5000
TabOrder = 1
Wrap = False
end
end
object gbMachineName: TGroupBox
Left = 0
Top = 48
Width = 185
Height = 49
Caption = 'Machine Name'
TabOrder = 8
object edMachineName: TEdit
Left = 8
Top = 16
Width = 161
Height = 21
TabOrder = 0
end
end
end